home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Amigazette 9.adf / Basic / BlitterCopy < prev    next >
Text File  |  1991-03-15  |  1KB  |  51 lines
  1. REM
  2. REM Demo van de tekst 'BlitterCopy'.
  3. REM
  4.  
  5. REM Libraries + .BMaps : ldscr.library in de LIBS:-directory
  6. REM                      ldscr.Bmap in de LIBS:-directory
  7. REM                      graphics.bmap in de LIBS:-directory
  8. REM                      intuition.bmap in de LIBS:-directory
  9. REM
  10.  
  11. DECLARE FUNCTION ldscr& LIBRARY
  12. DECLARE FUNCTION BltBitMap& LIBRARY
  13. DECLARE FUNCTION ViewPortAddress& LIBRARY
  14. LIBRARY "graphics.library"   : REM Graphics.bamp
  15. LIBRARY "intuition.library"  : REM intuition.bmap
  16. LIBRARY "ldscr.library"      : REM ldscr.bmap
  17.  
  18. SCREEN 3,320,256,4,1
  19. WINDOW 3,,,0,3
  20. Xn&=PEEKL(PEEKL(ViewPortAddress&(WINDOW(7))+36)+4)
  21. Naam$="SYS:Lo-Res/Pic01"
  22. GOSUB LeesScherm
  23.  
  24. SCREEN 4,320,256,4,1
  25. WINDOW 4,,,0,4
  26. Xv&=PEEKL(PEEKL(ViewPortAddress&(WINDOW(7))+36)+4)  
  27. Naam$="SYS:Lo-Res/Pic02"
  28. GOSUB LeesScherm
  29.  
  30. Loop:
  31. x2%=100:y2%=100 : REM Ergens op het scherm.
  32. sx%= 62:sy%= 62 : REM De maat van de plaatjes.
  33. FOR j=0 TO 3
  34.     FOR i=0 TO 3
  35.         x1%=0+i*64:y1%=0+j*64 : REM De begin-coordinaat
  36.         GOSUB Blitter
  37.         FOR z=1 TO 500 : NEXT
  38.     NEXT i
  39. NEXT j
  40. GOTO Loop
  41. END
  42.  
  43. Blitter:
  44. copy%=BltBitMap&(Xn&,x1%,y1%,Xv&,x2%,y2%,sx%,sy%,200,255,0)
  45. RETURN
  46.  
  47. LeesScherm:
  48. Scherm$=Naam$+CHR$(0)
  49. sch&=ldscr& (SADD(Scherm$),WINDOW(7))
  50. RETURN
  51.